home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / MacInterface / colors.icl < prev    next >
Encoding:
Modula Implementation  |  1994-06-23  |  203 b   |  8 lines  |  [TEXT/3PRM]
  1. implementation module colors;
  2.  
  3. import mac_types;
  4.  
  5. Index2Color :: !Int !Toolbox -> (!Int,!Int,!Int,!Toolbox);
  6. Index2Color index t = code (index=R6L,t=O4U)(red=W,green=W,blue=W,z=Z){
  7.     instruction 0xAA34
  8. };